Chip 1998 May/CHIP Turkiye Mayıs 1998.iso/grafik/95NEOBOK/NBW30.EXE/NeoBook.exe/0/RCDATA/TBOOKSETUPFORM/TBOOKSETUPFORM.txt

Text File | 1997-02-27 | 25KB | 776 lines

object BookSetupForm: TBookSetupForm
  Left = 314
  Top = 144
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Book Setup'
  ClientHeight = 343
  ClientWidth = 476
  Font.Color = clBtnText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 15
  object Label6: TLabel
    Left = 12
    Top = 12
    Width = 98
    Height = 15
    Caption = 'Keyboard Control:'
  end
  object Bevel5: TBevel
    Left = 16
    Top = 28
    Width = 9
    Height = 73
    Shape = bsLeftLine
  end
  object OkBtn: TBitBtn
    Left = 212
    Top = 308
    Width = 81
    Height = 28
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 0
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333300033333333333000B0330000300000E00030BFB70FBFB0
      E0003000000BFBF0E00030BFB70FBFB0E0003000000BFBF0E00030BFB70F0FB0
      E00030000000FBF0E00030BFB700BFB0E0003300000BFB0000003333330FB033
      33333333330B033333333333330F833333333333333083333333}
  end
  object CancelBtn: TBitBtn
    Left = 300
    Top = 308
    Width = 81
    Height = 28
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 1
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333808333
      33333333330F833333333333330B033330003333330FB03000B03380000BFB00
      E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000330087FBFBF0
      E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000338000000000
      0000333333333333333333333333333333333333333333333333}
  end
  object HelpBtn: TBitBtn
    Left = 388
    Top = 308
    Width = 81
    Height = 28
    Caption = '&Help'
    TabOrder = 2
    OnClick = HelpBtnClick
    Glyph.Data = {
      76010000424D760100000000000076000000280000001B000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3300003333333330000033333333333300BFBF00333333300000333333333330
      FBF00BFB03333330000033333333330FBFBFBFBFB0333330000033333333300B
      FBFBFBFBF003333000003333333000BFBFB00FBFBF00033000003333330BF0FB
      FB0BF0FBFB0BF03000003CC330BF80BF000FBF00BF08BF0000003CC330FBF0F0
      FF00F0FF0B0BFB000000333330BF00B0F00FB0F00F00BF0000003CC3330030F0
      000BF0000B03003000003CCC3333300F00BFBF00B00333300000333CC333330B
      FBF00BFBF03333300000CC3CC3333330BFBF0FBF033333300000CCCCC3333333
      00FBFB003333333000003CCC3333333333000033333333300000}
  end
  object PageControl: TPageControl
    Left = 8
    Top = 8
    Width = 461
    Height = 293
    ActivePage = Publication
    TabOrder = 3
    OnChange = PageControlChange
    object Publication: TTabSheet
      Caption = 'Publication'
      object Label8: TLabel
        Left = 8
        Top = 16
        Width = 26
        Height = 15
        Caption = '&Title:'
        FocusControl = TitleBox
      end
      object Label9: TLabel
        Left = 8
        Top = 52
        Width = 38
        Height = 15
        Caption = '&Author:'
        FocusControl = AuthorBox
      end
      object Label4: TLabel
        Left = 8
        Top = 88
        Width = 26
        Height = 15
        Caption = 'Icon:'
      end
      object TitleBox: TEdit
        Left = 52
        Top = 12
        Width = 389
        Height = 23
        TabOrder = 0
      end
      object AuthorBox: TEdit
        Left = 52
        Top = 48
        Width = 389
        Height = 23
        TabOrder = 1
      end
      object Panel2: TPanel
        Left = 52
        Top = 88
        Width = 40
        Height = 40
        BevelOuter = bvLowered
        TabOrder = 2
        object IconImage: TNeoBookImage
          Left = 4
          Top = 4
          Width = 32
          Height = 32
        end
      end
      object LoadIconBtn: TBitBtn
        Left = 100
        Top = 88
        Width = 105
        Height = 28
        Caption = '&Load Icon...'
        TabOrder = 3
        OnClick = LoadIconBtnClick
        Glyph.Data = {
          66010000424D6601000000000000760000002800000014000000140000000100
          040000000000F000000000000000000000001000000010000000000000000000
          BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          7777777700007777777777788888888700007777777777787787787700007777
          7777777877877877000077007000007888888887000077E00BFBFB0877800807
          000077E0BFBF000877800807000077E0FBFBFBF080088887000077E0BFBF0000
          0B077807000077E0FBFBFBFBF0877807000077E0BF0000000888888700007700
          0BFB00B0778778070000777770000B0877877807000077777770B07888888887
          00007777770B0778778008070000777770B07778778008070000777709077778
          8888888700007777707777787787787700007777777777787787787700007777
          77777777777777770000}
      end
    end
    object General: TTabSheet
      Caption = 'Access Control'
      object Label5: TLabel
        Left = 8
        Top = 8
        Width = 98
        Height = 15
        Caption = 'Keyboard Control:'
      end
      object Bevel4: TBevel
        Left = 16
        Top = 28
        Width = 9
        Height = 77
        Shape = bsLeftLine
      end
      object Label7: TLabel
        Left = 8
        Top = 116
        Width = 98
        Height = 15
        Caption = 'Window Behavior:'
      end
      object Bevel6: TBevel
        Left = 16
        Top = 136
        Width = 9
        Height = 57
        Shape = bsLeftLine
      end
      object Label10: TLabel
        Left = 8
        Top = 204
        Width = 59
        Height = 15
        Caption = 'Password:'
      end
      object Bevel7: TBevel
        Left = 16
        Top = 224
        Width = 9
        Height = 17
        Shape = bsLeftLine
      end
      object AllowPage: TCheckBox
        Left = 24
        Top = 48
        Width = 393
        Height = 17
        Caption = 'Allow Page Up, Page Down, Home and End Keys to Change &Pages'
        TabOrder = 1
      end
      object AllowBtns: TCheckBox
        Left = 24
        Top = 68
        Width = 289
        Height = 17
        Caption = 'Allow Tab, Shift Tab and Enter to Activate &Buttons'
        TabOrder = 2
      end
      object AllowWindows: TCheckBox
        Left = 24
        Top = 88
        Width = 333
        Height = 17
        Caption = 'Allow Tab, Shift Tab to Activate &Scrolling Text and Images'
        TabOrder = 3
      end
      object FullScreen: TCheckBox
        Left = 24
        Top = 136
        Width = 301
        Height = 17
        Caption = 'Run Publication &Full Screen (press ESC key to exit)'
        TabOrder = 4
      end
      object OnTop: TCheckBox
        Left = 24
        Top = 156
        Width = 393
        Height = 17
        Caption =
          'Publication Floats on &Top of other Applications (compiled pubs ' +
          'only)'
        TabOrder = 5
      end
      object AllowEsc: TCheckBox
        Left = 24
        Top = 28
        Width = 205
        Height = 17
        Caption = 'Allow ESC Key to E&xit Publication'
        TabOrder = 0
      end
      object PasswordRequired: TCheckBox
        Left = 24
        Top = 224
        Width = 225
        Height = 17
        Caption = 'Require &Password to Exit Publication:'
        TabOrder = 7
      end
      object PasswordEdit: TEdit
        Left = 252
        Top = 220
        Width = 141
        Height = 23
        TabOrder = 8
        OnChange = PasswordEditChange
      end
      object Sizeable: TCheckBox
        Left = 24
        Top = 176
        Width = 345
        Height = 17
        Caption = 'Allow Publication Window to be Si&zed (compiled pubs only)'
        TabOrder = 6
      end
    end
    object ScreenSize: TTabSheet
      Caption = 'Size / Colors'
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 376
        Height = 15
        Caption =
          'Publication Screen Size (in pixels, excluding window title and b' +
          'order):'
      end
      object Label2: TLabel
        Left = 192
        Top = 128
        Width = 17
        Height = 15
        Alignment = taCenter
        Caption = 'x'
      end
      object Bevel1: TBevel
        Left = 16
        Top = 28
        Width = 9
        Height = 121
        Shape = bsLeftLine
      end
      object Label3: TLabel
        Left = 8
        Top = 160
        Width = 101
        Height = 15
        Caption = 'Number of Colors:'
      end
      object Bevel2: TBevel
        Left = 16
        Top = 178
        Width = 9
        Height = 73
        Shape = bsLeftLine
      end
      object RadioButton1: TRadioButton
        Left = 24
        Top = 32
        Width = 77
        Height = 17
        Caption = '&320 x 200'
        TabOrder = 0
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 24
        Top = 56
        Width = 77
        Height = 17
        Caption = '&640 x 480'
        TabOrder = 1
        OnClick = RadioButton2Click
      end
      object RadioButton3: TRadioButton
        Left = 24
        Top = 80
        Width = 77
        Height = 17
        Caption = '&800 x 600'
        TabOrder = 2
        OnClick = RadioButton3Click
      end
      object RadioButton4: TRadioButton
        Left = 24
        Top = 104
        Width = 85
        Height = 17
        Caption = '&1024 x 768'
        TabOrder = 3
        OnClick = RadioButton4Click
      end
      object RadioButton5: TRadioButton
        Left = 24
        Top = 128
        Width = 93
        Height = 17
        Caption = '&Custom Size:'
        TabOrder = 4
      end
      object WidthEdit: TSpinEdit
        Left = 120
        Top = 124
        Width = 69
        Height = 24
        AutoSize = False
        MaxValue = 2000
        MinValue = 150
        TabOrder = 5
        Value = 150
        OnExit = WidthEditExit
      end
      object HeightEdit: TSpinEdit
        Left = 212
        Top = 124
        Width = 69
        Height = 24
        AutoSize = False
        MaxValue = 2000
        MinValue = 150
        TabOrder = 6
        Value = 150
        OnExit = WidthEditExit
      end
      object Panel1: TPanel
        Left = 20
        Top = 180
        Width = 269
        Height = 73
        BevelOuter = bvNone
        TabOrder = 7
        object Color16Btn: TRadioButton
          Left = 4
          Top = 4
          Width = 77
          Height = 17
          Caption = '16 C&olors'
          TabOrder = 0
        end
        object Color256Btn: TRadioButton
          Left = 4
          Top = 28
          Width = 85
          Height = 17
          Caption = '2&56 Colors'
          TabOrder = 1
        end
        object Color16MBtn: TRadioButton
          Left = 4
          Top = 52
          Width = 113
          Height = 17
          Caption = '16 &Million Colors'
          TabOrder = 2
        end
      end
    end
    object Idle: TTabSheet
      Caption = 'Idle Event'
      object Label13: TLabel
        Left = 216
        Top = 16
        Width = 191
        Height = 15
        Caption = 'Minutes Execute the Actions below:'
      end
      object IdleTime: TSpinEdit
        Left = 156
        Top = 12
        Width = 53
        Height = 24
        MaxValue = 60
        MinValue = 0
        TabOrder = 0
        Value = 5
      end
      object IdleBtn: TCheckBox
        Left = 8
        Top = 16
        Width = 145
        Height = 17
        Caption = 'If &Publication is Idle for'
        TabOrder = 1
      end
      object Panel3: TPanel
        Left = 8
        Top = 48
        Width = 437
        Height = 32
        BevelOuter = bvNone
        TabOrder = 2
        object OpenBtn: TSpeedButton
          Left = 0
          Top = 4
          Width = 25
          Height = 25
          Hint = 'Import text from a file'
          Glyph.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333300003330000000000333333300003330788888880333333300003330
            F77777780333333300003330F77777780333333300003330F997777803333333
            00003330FFFFFFF7033333330000333000000000033333330000333333333333
            33333333000033300333330000000033000033300333330FFFFFF03300003330
            0303330F8888F033000033300800330FFFFFF033000033380000030F8888F033
            000033338000030FFFFFF033000033333300330F88F00033000033333303330F
            FFF0033300003333333333000000333300003333333333333333333300003333
            33333333333333330000}
          OnClick = OpenBtnClick
        end
        object SaveBtn: TSpeedButton
          Left = 26
          Top = 4
          Width = 25
          Height = 25
          Hint = 'Save text to a file'
          Glyph.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333300003333333300000000003300003333333307888888803300003333
            33330F77777780330000333333330F77777780330000333333330F9977778033
            0000333333330FFFFFFF70330000333333330000000000330000333333333333
            3333333300003330000000033300333300003330FFFFFF033000033300003330
            F8888F030000003300003330FFFFFF033300333300003330F8888F0333003333
            00003330FFFFFF033800333300003330F88F00030008333300003330FFFF0033
            0083333300003330000003333333333300003333333333333333333300003333
            33333333333333330000}
          OnClick = SaveBtnClick
        end
        object PrintBtn: TSpeedButton
          Left = 52
          Top = 4
          Width = 25
          Height = 25
          Hint = 'Print text'
          Glyph.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333300003333333333333333333300003300033333333330003300003000
            0000000000000003000030F77777777777777703000030F77777777777777703
            000030F77777777777997703000030FFFFFFFFFFFFFFFF030000380088888888
            88880083000033300000000000000333000033300FFFFFFFFFF0033300003333
            0F00000000F03333000033330FFFFFFFFFF03333000033330F00000000F03333
            000033330FFFFFFFFFF03333000033330F00FFFFFFF03333000033330FFFFFFF
            FFF0333300003333000000000000333300003333333333333333333300003333
            33333333333333330000}
          OnClick = PrintBtnClick
        end
        object CutBtn: TSpeedButton
          Left = 82
          Top = 4
          Width = 25
          Height = 25
          Hint = 'Cut'
          Glyph.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777777700007770000777777000077700007780FF00777700FF087700007780
            77F077770F770877000077807770777707770877000077780770077807708777
            0000777780000880000877770000777777000000007777770000777777700FF0
            07777777000077777778000087777777000077777780FF0F0877777700007777
            780FF00FF08777770000777780FF0770FF087777000077780FF077770FF08777
            00007780FF07777770FF08770000780FF0777777770FF087000070FF07777777
            7770FF07000070F07777777777770F0700007007777777777777700700007777
            77777777777777770000}
          OnClick = CutBtnClick
        end
        object CopyBtn: TSpeedButton
          Left = 108
          Top = 4
          Width = 25
          Height = 25
          Hint = 'Copy'
          Glyph.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            77777777000077777770000000000777000077777770FFFFFFFF077700007777
            7770BFBFBFBF0777000077777770F888888F0777000077777770BFBFBFBF0777
            000077000000F888888F07770000770FFFF0BFBFBFBF07770000770FFFF0F888
            888F07770000770F7770BFBFBFBF07770000770FFFF0FFFFFF0007770000770F
            7770BFBFBF0077770000770FFFF00000000777770000770F777777F077777777
            0000770FFFFFFFF0777777770000770FFFFFF000777777770000770FFFFFF007
            7777777700007700000000777777777700007777777777777777777700007777
            77777777777777770000}
          OnClick = CopyBtnClick
        end
        object PasteBtn: TSpeedButton
          Left = 134
          Top = 4
          Width = 25
          Height = 25
          Hint = 'Paste'
          Glyph.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333333000033333333330000000003000033333333330F77777F0300003333
            3333330F77777F03000033333333330F77777F03000030000000000F77777F03
            000030FFFFFFFF0F77777F03000030FFFFFFFF0F77777F03000030FFFFFFFF0F
            77777F03000030FFFFFFFF0F00000F03000030FFFFFF0FF001110033000030FF
            FFF000FF01110333000030FF0F000FFF80003333000030FF0000FFFF03333333
            000030FF000FFFFF03333333000030FF0000F00003333333000030FFFFFFF0F0
            33333333000030FFFFFFF0033333333300003000000000333333333300003333
            33333333333333330000}
          OnClick = PasteBtnClick
        end
        object Deletebtn: TSpeedButton
          Left = 160
          Top = 4
          Width = 25
          Height = 25
          Hint = 'Delete'
          Glyph.Data = {
            66010000424D6601000000000000760000002800000014000000140000000100
            040000000000F000000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777777700007770000000007777777700007770F88888807777777700007770
            F07070807777777700007770F07080807777777700007770F070708077777777
            00007770F07080807777777700007770F07070807777777700007070F0708080
            7077777700007700F07070800777777700007770F07080807777777700007770
            808080807777777700008070000000007777777700000F077777777777777777
            0000807077777777777777780000780707777770887777770000707080777708
            7F87778700007808080777808F87877700007780808077780877777700007777
            78087777777777770000}
          OnClick = DeletebtnClick
        end
        object Label11: TLabel
          Left = 258
          Top = 8
          Width = 129
          Height = 15
          Alignment = taRightJustify
          Caption = 'Insert Action Command'
        end
        object NeoBookImage1: TNeoBookImage
          Left = 390
          Top = 8
          Width = 16
          Height = 16
          AutoSize = True
          Picture.Data = {<image000.bmp>}
          Transparent = True
        end
        object InsertActionBtn: TSpeedButton
          Left = 411
          Top = 4
          Width = 25
          Height = 25
          Hint = 'Select an Action Command from a list'
          Glyph.Data = {
            F6010000424DF601000000000000760000002800000030000000100000000100
            0400000000008001000000000000000000001000000010000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777777777777777777777777777777777777777777777777777777777777777
            777777777777777777777777777707777777777777777777777777777777F777
            77777777777F00777777777777770777777777777770FF777777777777FFF007
            77777777777F70777777777777000FF7777777777FFFFF007777777777F7F707
            77777777700000FF77777777FFFFFFF0077777777F7F7F70777777770000000F
            F777777FFFFFFFFF00777777F7F7F7F70777777000000000FF7777FFFFFFFFFF
            F777777F7F7F7F7F7777770000000000077777777FFFFF077777777777F7F707
            77777777700000F7777777777FFFFF07777777777F7F7F7777777777700000F7
            777777777FFFFF077777777777F7F70777777777700000F7777777777FFFFF07
            777777777F7F7F7777777777700000F7777777777FFFFF777777777777F7F777
            7777777770000077777777777777777777777777777777777777777777777777
            7777777777777777777777777777777777777777777777777777}
          Layout = blGlyphRight
          NumGlyphs = 3
          OnClick = InsertActionBtnClick
        end
        object CursorPos: TLabel
          Left = 196
          Top = 8
          Width = 17
          Height = 15
          Caption = '1/1'
        end
      end
      object ActionMemo: TMemo
        Left = 8
        Top = 80
        Width = 437
        Height = 173
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 3
        OnChange = ActionMemoChange
        OnClick = ActionMemoChange
        OnDblClick = ActionMemoDblClick
        OnKeyUp = ActionMemoKeyUp
        OnMouseUp = ActionMemoMouseUp
      end
    end
    object Language: TTabSheet
      Caption = 'Language'
      object Label12: TLabel
        Left = 8
        Top = 8
        Width = 437
        Height = 33
        AutoSize = False
        Caption =
          'Authors of non-english publications may want to translate the fo' +
          'llowing text which can appear in messages generated by the compi' +
          'led publication:'
        WordWrap = True
      end
      object LoadLangBtn: TBitBtn
        Left = 8
        Top = 224
        Width = 113
        Height = 28
        Caption = '&Load Language...'
        TabOrder = 1
        OnClick = LoadLangBtnClick
      end
      object SaveLangBtn: TBitBtn
        Left = 128
        Top = 224
        Width = 113
        Height = 28
        Caption = '&Save Language...'
        TabOrder = 2
        OnClick = SaveLangBtnClick
      end
      object ResetLangBtn: TBitBtn
        Left = 332
        Top = 224
        Width = 113
        Height = 28
        Caption = '&Reset to English'
        TabOrder = 4
        OnClick = ResetLangBtnClick
      end
      object DefaultLangBtn: TCheckBox
        Left = 256
        Top = 232
        Width = 61
        Height = 17
        Caption = '&Default'
        TabOrder = 3
      end
      object Grid: TStringGrid
        Left = 8
        Top = 48
        Width = 437
        Height = 165
        ColCount = 2
        DefaultColWidth = 180
        DefaultRowHeight = 22
        RowCount = 15
        FixedRows = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goTabs, goAlwaysShowEditor, goThumbTracking]
        ScrollBars = ssVertical
        TabOrder = 0
        OnDrawCell = GridDrawCell
        OnGetEditText = GridGetEditText
        OnKeyDown = GridKeyDown
        OnSetEditText = GridSetEditText
        ColWidths = (
          180
          236)
        RowHeights = (
          22
          22
          22
          22
          22
          22
          22
          22
          22
          22
          22
          22
          22
          22
          22)
      end
    end
  end
end